home *** CD-ROM | disk | FTP | other *** search
- -- background: 2527 from stack: in
- -- bmap block id: 6707
- -- flags: 4000
- -- background id: 0
- -- name: Note Organizer
- ----- HyperTalk script -----
- on opencard
- global topnote
- set hilite of bkgnd button "Note Organizer" to true
- put the name of this card into topnote
- end opencard
-
- on closecard
- global smallm, whom, windowopenm
- set hilite of bkgnd button "Note Organizer" to false
- if windowopenm is not empty then
- put windowopenm into whom
- zoomclose
- end if
- end closecard
-
- on hidestuff
- set cursor to 4
- set lockscreen to true
- hide bkgnd button "Print Page"
- hide bkgnd button "Delete Page"
- hide bkgnd button "New Page"
- hide bkgnd button id 5
- end hidestuff
-
- on zoomopen
- global smallm, whom, windowopenm
- set cursor to 4
- set lockscreen to true
- repeat with x = 1 to 16
- hide card field x
- hide card button x
- end repeat
- hide bkgnd button "Next"
- hide bkgnd button "Last"
- show card field whom
- if windowopenm is not empty then
- put whom into temp
- put windowopenm into whom
- zoomclose
- put temp into whom
- end if
- put rect of card field whom into smallm
- set rect of card field whom to 15,135,495,328
- Set locktext of card field whom to false
- set showlines of bkgnd field "Title" to false
- Set locktext of bkgnd field "Title" to true
- show bkgnd button "Close"
- put whom into windowopenm
- end zoomopen
-
- on zoomclose
- global smallm, whom, windowopenm
- set cursor to 4
- set lockscreen to true
- put item 1 of smallm into L
- put item 2 of smallm into T
- put item 3 of smallm into R
- put item 4 of smallm into B
- set rect of card field whom to L,T,R,B
- Set locktext of card field whom to true
- if card field whom is empty then put "•" into card field whom
- put empty into windowopenm
- repeat with x = 1 to 16
- show card field x
- show card button x
- end repeat
- Set locktext of bkgnd field "Title" to false
- show bkgnd button "Next"
- show bkgnd button "Last"
- hide bkgnd button "Close"
- end zoomclose
-
-
-
- -- part 1 (button)
- -- low flags: 00
- -- high flags: 8002
- -- rect: left=8 top=2 right=20 bottom=127
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: File Card
- ----- HyperTalk script -----
- on mouseUp
- global lastfile
- set cursor to 4
- if lastfile is empty then
- go to bkgnd "File Card"
- else
- go to lastfile
- end if
- end mouseUp
-
-
-
- -- part 2 (button)
- -- low flags: 00
- -- high flags: 8002
- -- rect: left=133 top=2 right=20 bottom=252
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Calender
- ----- HyperTalk script -----
- on mouseUp
- global topcal
- set cursor to 4
- if topcal is empty then
- go to bkgnd "Calender"
- else
- go to topcal
- end if
- end mouseUp
-
-
-
- -- part 3 (button)
- -- low flags: 00
- -- high flags: 8002
- -- rect: left=259 top=2 right=20 bottom=378
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Label Maker
- ----- HyperTalk script -----
- on mouseUp
- global topcard
- set cursor to 4
- if topcard is empty then
- go to bkgnd "Label Maker"
- else
- go to topcard
- end if
- end mouseUp
-
-
-
- -- part 4 (button)
- -- low flags: 00
- -- high flags: 8002
- -- rect: left=385 top=2 right=20 bottom=504
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Note Organizer
- ----- HyperTalk script -----
- on mouseUp
- set lockscreen to true
- show Bkgnd button "New Page"
- show Bkgnd button "Delete page"
- show Bkgnd button "Print Page"
- show Bkgnd button id 5
- end mouseUp
-
-
-
-
-
- -- part 5 (button)
- -- low flags: 80
- -- high flags: 0000
- -- rect: left=386 top=2 right=21 bottom=504
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name:
- ----- HyperTalk script -----
- on mouseUp
- hidestuff
- end mouseUp
-
-
-
-
- -- part 64 (field)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=127 top=75 right=102 bottom=410
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 7
- -- text size: 18
- -- style flags: 4096
- -- line height: 24
- -- part name: Title
-
-
- -- part 9 (button)
- -- low flags: 80
- -- high flags: A002
- -- rect: left=385 top=70 right=96 bottom=504
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Print Page
- ----- HyperTalk script -----
- on mouseUp
- global windowopenm,whom
- hidestuff
- if windowopenm is empty then
- set lockscreen to false
- open printing with dialog
- set lockscreen to true
- repeat with x = 1 to 16
- if the number of chars of card field x < 3 then
- next repeat
- else
- put x into whom
- zoomopen
- print this card
- zoomclose
- end if
- end repeat
- close printing
- else
- domenu "Print Card"
- end if
- end mouseup
-
-
-
-
- -- part 65 (button)
- -- low flags: 80
- -- high flags: 2001
- -- rect: left=465 top=101 right=126 bottom=499
- -- title width / last selected line: 0
- -- icon id / first selected line: 7417 / 7417
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Close
- ----- HyperTalk script -----
- on mouseUp
- zoomclose
- end mouseUp
-
-
-
- -- part 7 (button)
- -- low flags: 80
- -- high flags: A002
- -- rect: left=385 top=45 right=71 bottom=504
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Delete Page
- ----- HyperTalk script -----
- on mouseUp
- global windowopenm, whom
- hidestuff
- if bkgnd field "Title" is "Help Notes" then
- beep 1
- exit mouseup
- end if
- if windowopenm is empty then
- put the name of next card in bkgnd "Note Organizer" into temp
- domenu "Delete Card"
- go to temp
- else
- put "•" into card field whom
- zoomclose
- end if
- end mouseUp
-
-
-
-
- -- part 30 (button)
- -- low flags: 00
- -- high flags: 2000
- -- rect: left=12 top=102 right=127 bottom=46
- -- title width / last selected line: 0
- -- icon id / first selected line: 17779 / 17779
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Last
- ----- HyperTalk script -----
- on mouseUp
- set lockscreen to true
- wait 20
- if the mouse is down then go to first card in bkgnd "Note Organizer"
- else
- go to prev card in bkgnd "Note Organizer"
- end if
- end mouseUp
-
-
-
- -- part 31 (button)
- -- low flags: 00
- -- high flags: 2000
- -- rect: left=469 top=101 right=126 bottom=500
- -- title width / last selected line: 0
- -- icon id / first selected line: 8419 / 8419
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Next
- ----- HyperTalk script -----
- on mouseUp
- set lockscreen to true
- wait 20
- if the mouse is down then go to last card in bkgnd "Note Organizer"
- else
- go to next card in bkgnd "Note Organizer"
- end if
- end mouseUp
-
-
-
- -- part 6 (button)
- -- low flags: 80
- -- high flags: A002
- -- rect: left=385 top=20 right=46 bottom=504
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: New Page
- ----- HyperTalk script -----
- on mouseUp
- hidestuff
- go to last card in bkgnd "Note Organizer"
- domenu "Copy Card"
- domenu "Paste Card"
- repeat with x = 1 to 16
- put "•" into card field x
- end repeat
- Put empty into bkgnd field "Title"
- end mouseUp
-
-